﻿Imports System.Data.SqlClient

Public Class FrmPelicula
    'Para poder establecer el comboBox con otra fuente de datos:
    '1) Antes de arrastrar la tabla hacia el formulario, modificar el control apropiado como ComboBox
    '2) Setear la propiedad Databindings (Text) como None: así no se realiza más el binding entre el id de género y el texto del control
    '3) Especificar en el combobox de género:
    'DataSource = GeneroBindingSource
    'DisplayMember = nombre   (Es el valor que va a mostrarse en el control)
    'ValueMember = id (Es el valor que va a tener el control al seleccionarse un item)
    'SelectedValue = PeliculaBindingSource.genero_id (Es el valor seleccionado del registro)
    'Todo esto a través del diseñador: Se puede ver el código generado automáticamente en FrmPelicula.Designer.vb
    Private Sub PeliculaBindingNavigatorSaveItem_Click(sender As System.Object, e As System.EventArgs) Handles PeliculaBindingNavigatorSaveItem.Click
        If Me.Validate() Then
            Try
                Me.PeliculaBindingSource.EndEdit()
                Me.TableAdapterManager.UpdateAll(Me.VideoDataSet)
            Catch ex As DBConcurrencyException
                MessageBox.Show("Error de concurrencia. En este caso se vuelven a actualizar todos los datos originales")
                PeliculaTableAdapter.Fill(VideoDataSet.Pelicula)
            Catch ex As DataException
                MessageBox.Show("Error en alguna restricción de la base de datos")
                PeliculaBindingSource.CancelEdit()
            Catch ex As SqlException
                MessageBox.Show("Error en la base de datos")
            End Try

        End If
    End Sub

    Private Sub FrmPelicula_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        Try
            Me.GeneroTableAdapter.Fill(Me.VideoDataSet.Genero)
            Me.PeliculaTableAdapter.Fill(Me.VideoDataSet.Pelicula)
        Catch ex As SqlException
            MessageBox.Show("Error en la base de datos")
        End Try
    End Sub
End Class